home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim1.dem < prev    next >
Text File  |  1999-09-16  |  372b  |  20 lines
  1. kp=xget("pixmap");
  2. if kp=0, xset("pixmap",1);end;
  3. xset("wwpc");
  4. t=%pi*(-5:5)/5;
  5. plot3d1(t,t,sin(t)'*cos(t),35,45," ",[2,2,4]);
  6. xset("wshow");
  7. sp=2;
  8. for i=35:sp:80,xset("wwpc");
  9.     plot3d1(t,t,sin(t)'*cos(t),i,45," ",[1,0,4])
  10.     xset("wshow");
  11. end
  12. for i=45:sp:80,xset("wwpc");
  13.     plot3d1(t,t,sin(t)'*cos(t),80,i," ",[1,0,4])
  14.     xset("wshow");
  15. end
  16. if kp=0, xset("pixmap",0);end;
  17.  
  18.  
  19.  
  20.